﻿Imports System.Text.RegularExpressions

Public Class metodos

    Public Function usuario(ByVal texto As String) As Boolean
        'Valida el que texto empiece por letras, y solo contenga letras, numeros y guiones.
        Dim myRegex As New Regex( _
   "^[a-zA-Z](([\._\-][a-zA-Z0-9])|[a-zA-Z0-9])*[a-z0-9]$")

        If myRegex.IsMatch(texto) Then
            Return True
        Else
            Return False
        End If

    End Function

    Public Function contraseña(ByVal texto As String) As Boolean
        'Valida que el texto empiece por letras y solo contenga números y letras
        Dim myRegex As New Regex( _
   "^[a-zA-Z](([a-zA-Z0-9])|[a-zA-Z0-9])*[a-z0-9]$")

        If myRegex.IsMatch(texto) Then
            Return True
        Else
            Return False
        End If

    End Function

    Public Function numeros(ByVal numero As String) As Boolean
        'Valida que sea un número
        If IsNumeric(numero) Then
            numeros = True
        Else
            numero = False
        End If
    End Function



    Public Function dni(ByVal texto As String) As Boolean
        'Valida DNI o NIE
        Dim myRegex As New Regex( _
   "^[0-9]{7,8}[a-zA-Z]$")

        If myRegex.IsMatch(texto) Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function palabra(ByVal texto As String) As Boolean
        'Valida que el texto contenga solo letras 
        Dim myRegex As New Regex( _
   "^[a-zA-Z](([a-zA-Z])|[a-zA-Z])*[a-z]$")

        If myRegex.IsMatch(texto) Then
            Return True
        Else
            Return False
        End If

    End Function

End Class
